my $filename = $ARGV[0]; 
open(NETLIST, $filename) or die "Couldn't open synthesis top file";
my @lines=<NETLIST>;

close NETLIST;
open(NEWFILE, ">", "${filename}_NoClk") or die "Couldn't create new file";

foreach $thisline(@lines) {
	$thisline =~ s/clk1__L\d_N\d+/clk1/g;
	$thisline =~ s/clk1__N\d+/clk1/g;
	$thisline =~ s/clk2__L\d_N\d+/clk2/g;
	$thisline =~ s/clk2__N\d+/clk2/g;
	$thisline =~ s/clk__L\d_N\d+/clk/g;
	$thisline =~ s/clk__N\d+/clk/g;
	print NEWFILE  $thisline;
}

close NEWFILE;
